home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / background_31331.txt < prev    next >
Encoding:
Text File  |  1990-08-17  |  2.8 KB  |  148 lines
  1. -- background: 31331 from stack: in.0
  2. -- bmap block id: 31496
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Publicity
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global viewTime
  9.   put the seconds into viewTime
  10. end openCard
  11.  
  12. on returnKey
  13.   global stringToFind
  14.   if the visible of msg is true or stringToFind is empty then
  15.     pass returnKey
  16.   else
  17.     if the foundText is not empty then
  18.       find string stringToFind
  19.       if the result is not "not found" then
  20.         play stop
  21.         play harpsichord a7t ae
  22.       end if
  23.     end if
  24.   end if
  25. end returnKey
  26.  
  27. on find
  28.   if the visible of msg is true then
  29.     show msg
  30.   end if
  31.   pass find
  32. end find
  33.  
  34. on arrowKey
  35.   -- do nothing
  36. end arrowKey
  37.  
  38.  
  39.  
  40. -- part 13 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=2 top=3 right=21 bottom=451
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 20
  48. -- text size: 12
  49. -- style flags: 2304
  50. -- line height: 16
  51. -- part name: Header
  52.  
  53.  
  54. -- part 22 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=343 top=3 right=20 bottom=510
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 65535
  61. -- font id: 20
  62. -- text size: 12
  63. -- style flags: 2304
  64. -- line height: 16
  65. -- part name: Page Number
  66.  
  67.  
  68. -- part 43 (button)
  69. -- low flags: 00
  70. -- high flags: 2000
  71. -- rect: left=94 top=305 right=337 bottom=130
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Home
  80. ----- HyperTalk script -----
  81. on mouseDown
  82.   play stop
  83.   play harpsichord a7e
  84. end mouseDown
  85.  
  86. on mouseUp
  87.   doMenu Quit HyperCard
  88. end mouseUp
  89.  
  90.  
  91. -- part 46 (button)
  92. -- low flags: 00
  93. -- high flags: 2000
  94. -- rect: left=463 top=305 right=337 bottom=499
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Contents
  103. ----- HyperTalk script -----
  104. on mouseDown
  105.   play stop
  106.   play harpsichord a7e
  107. end mouseDown
  108.  
  109. on mouseUp
  110.   visual effect dissolve
  111.   go to card "Publicity Picture Dissolve"
  112.   visual effect iris close to black
  113.   visual effect iris open
  114.   go to card "Main Menu"
  115. end mouseUp
  116.  
  117.  
  118. -- part 49 (button)
  119. -- low flags: 00
  120. -- high flags: 2000
  121. -- rect: left=53 top=305 right=337 bottom=89
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Print
  130. ----- HyperTalk script -----
  131. on mouseDown
  132.   play stop
  133.   play harpsichord a7e
  134. end mouseDown
  135.  
  136. on mouseUp
  137.   answer "Print this page?" with "Cancel" or "OK"
  138.   if it is "OK" then
  139.     set lockScreen to true
  140.     open printing
  141.     print 2 cards
  142.     close printing
  143.     set lockScreen to false
  144.   end if
  145. end mouseUp
  146.  
  147.  
  148.